home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Tools 4
/
Amiga Tools 4.iso
/
tools
/
mail-tools
/
thor
/
thor_2.22
/
thor.lha
/
rexx
/
FSE
/
RemoveUU.fse
< prev
next >
Wrap
Text File
|
1995-12-18
|
467b
|
30 lines
/* $VER: RemoveUU.fse 1.0 (4.8.95)
* Remove quoted (with '>') uuencode text from the fse
* Author: Magne Østlyngen
*/
options results
MSGLENGTH
lines=result
i=1
do forever
SETPOS 1 i
GETLINE i
ln=result
if left(ln,7)='>begin ' then do
i=i+1
SETPOS 1 i
do until left(ln,4)='>end'
GETLINE i
ln=result
DELETELINES
lines=lines-1
if i>lines then leave
end
end
i=i+1
if i>lines then leave
end
SETPOS 1 1
exit